home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1997 January / Macworld (1997-01).dmg / QuarkImmedia™1.01 Demo / Power Macintosh Demo / QuarkXPress - Int'l English / QuarkXPress™ Demo / QuarkXPress™ 3.32r5 Demo / QuarkXPress™ 3.32r5 Demo.rsrc / PSHD_1014 < prev    next >
Text File  |  1996-11-01  |  2KB  |  39 lines
  1. /mv where{pop}{/mv 256 array def
  2. mv 0 /Helvetica findfont /Encoding get 0 128 getinterval putinterval
  3. mv dup 39/quotesingle put 96/grave put
  4. /NUL/SOH/STX/ETX/EOT/ENQ/ACK/BEL/BS/HT/LF/VT/FF/CR/SO/SI
  5. /DLE/DC1/DC2/DC3/DC4/NAK/SYN/ETB/CAN/EM/SUB/ESC/FS/GS/RS/US
  6. mv 0 32 getinterval astore pop
  7. /Adieresis/Aring/Ccedilla/Eacute/Ntilde/Odieresis/Udieresis/aacute/agrave
  8. /acircumflex/adieresis/atilde/aring/ccedilla/eacute/egrave/ecircumflex
  9. /edieresis/iacute/igrave/icircumflex/idieresis/ntilde/oacute/ograve/ocircumflex
  10. /odieresis/otilde/uacute/ugrave/ucircumflex/udieresis/dagger/degree/cent/sterling
  11. /section/bullet/paragraph/germandbls/registered/copyright/trademark/acute/dieresis
  12. /notequal/AE/Oslash/infinity/plusminus/lessequal/greaterequal/yen/mu/partialdiff
  13. /summation/product/pi/integral/ordfeminine/ordmasculine/Omega/ae/oslash/questiondown
  14. /exclamdown/logicalnot/radical/florin/approxequal/Delta/guillemotleft/guillemotright
  15. /ellipsis/space/Agrave/Atilde/Otilde/OE/oe/endash/emdash/quotedblleft/quotedblright
  16. /quoteleft/quoteright/divide/lozenge/ydieresis/Ydieresis/fraction/currency
  17. /guilsinglleft/guilsinglright/fi/fl/daggerdbl/periodcentered/quotesinglbase
  18. /quotedblbase/perthousand/Acircumflex/Ecircumflex/Aacute/Edieresis/Egrave/Iacute
  19. /Icircumflex/Idieresis/Igrave/Oacute/Ocircumflex/apple/Ograve/Uacute/Ucircumflex
  20. /Ugrave/dotlessi/circumflex/tilde/macron/breve/dotaccent/ring/cedilla/hungarumlaut
  21. /ogonek/caron
  22. mv 128 128 getinterval astore pop}ifelse
  23. statusdict begin version cvr 47.0 ge end
  24. {/w /stringwidth load def}
  25. {/w{g np 0 0 0 0 m l cp u stringwidth G}B}ifelse
  26. /smc{m dup M}B
  27. /sos{s75 cvs dup 1 79 put cvn}B
  28. /sss{s75 cvs dup 2 83 put cvn}B
  29. /sbs{s75 cvs dup 3 66 put cvn}B
  30. /sts{tpamt 0 ne{str cvs dup 4 84 put length dup tpamt s75 cvs dup length
  31.  str 4 -2 roll putinterval add str 0 3 -1 roll getinterval cvn}if}B
  32. /Z{/psy X/psx X curf
  33.  psx 0 psx usangl{.212557 mul}{pop 0}ifelse psy neg 0 0 fmtx astore makefont setfont}B
  34. /f{/psy X/psx X far exch get aload pop dup 1 and 0 ne/usangl X 2 and 0 ne/doss X dup/curf X
  35.  psx 0 psx usangl{.212557 mul}{pop 0}ifelse psy neg 0 0 fmtx astore makefont setfont}B
  36. /cf{{1 index/FID ne 2 index/UniqueID ne and{def}{p2}ifelse}forall}B
  37. /stlf{FontDirectory 2 index known{exch findfont}{3 -1 roll newmm}ifelse
  38.  3 1 roll p2}B
  39.